home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tray1 / traymenu.frm < prev   
Text File  |  1996-05-02  |  2KB  |  86 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   1875
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   2835
  8.    Height          =   2565
  9.    Left            =   1080
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1875
  12.    ScaleWidth      =   2835
  13.    Top             =   885
  14.    Width           =   2955
  15.    Begin VB.Menu mPopup 
  16.       Caption         =   "Popup"
  17.       Begin VB.Menu mOpen 
  18.          Caption         =   "&Open"
  19.       End
  20.       Begin VB.Menu mspe1 
  21.          Caption         =   "-"
  22.       End
  23.       Begin VB.Menu mOpt1 
  24.          Caption         =   "Option 1"
  25.       End
  26.       Begin VB.Menu mOpt2 
  27.          Caption         =   "Option 2"
  28.       End
  29.       Begin VB.Menu mOpt3 
  30.          Caption         =   "Option 3"
  31.       End
  32.       Begin VB.Menu mSep2 
  33.          Caption         =   "-"
  34.       End
  35.       Begin VB.Menu mRemove 
  36.          Caption         =   "&Remove"
  37.       End
  38.    End
  39. End
  40. Attribute VB_Name = "Form2"
  41. Attribute VB_Creatable = False
  42. Attribute VB_Exposed = False
  43. Sub GeneralMessage()
  44.  
  45.     MsgBox "Menu functionality is contained in Form2"
  46. End Sub
  47.  
  48. Private Sub Form_Load()
  49.  
  50. End Sub
  51. Private Sub mOpen_Click()
  52.     Form1.Show
  53. End Sub
  54.  
  55. Private Sub mOpt1_Click()
  56.  
  57.     GeneralMessage
  58.     
  59. End Sub
  60.  
  61.  
  62. Private Sub mOpt2_Click()
  63.  
  64.     GeneralMessage
  65.     
  66. End Sub
  67.  
  68.  
  69. Private Sub mOpt3_Click()
  70.  
  71.     GeneralMessage
  72.     
  73. End Sub
  74.  
  75.  
  76. Private Sub mPopup_Click()
  77.  
  78. End Sub
  79.  
  80.  
  81. Private Sub mRemove_Click()
  82.     
  83.     Unload Form1
  84.     
  85. End Sub
  86.